home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / utilities / commodity / magiccx10.lha / MagicCX / Install-MagicCX / Install-MagicCX < prev   
Encoding:
Text File  |  1994-08-17  |  34.1 KB  |  1,533 lines
  1. ; $VER: Install-MagicCX 1.0 (2.8.94)
  2. ; Install script for MagicCX (Workbench 2.1 or higher)
  3.  
  4.  
  5. ;========================================================
  6. ; English strings
  7.  
  8. (set default_lang 256)
  9.  
  10. (set #bad-kick
  11. (cat "You must be using Kickstart 2.04 to use MagicCX. Aborting!"
  12. ))
  13.  
  14. (set #copying-mcxserver "Copying MagicCX Server program...")
  15. (set #copying-mcxprefs "Copying MagicCX Preferences program...")
  16.  
  17. (set #which-language-help
  18. (cat "\nThe Amiga can be operated in many different"
  19.       " languages. If you want MagicCX windows to"
  20.       " use the same language as the Amiga Workbench"
  21.       " then a catalog file must be copied to your"
  22.       " system disk for each language supported.\n\n"
  23.       "To reduce the amount of space consumed by the"
  24.       " language files, you can select to have only the"
  25.       " files of specific languages copied.\n\n"
  26.       "Simply check the boxes of the languages you wish"
  27.       " to have available on your system.\n\n"
  28.       @askoptions-help
  29. ))
  30.  
  31. (set #install-msg
  32. (cat "\n\MagicCX installation script.\n"
  33.      "This script installs MagicCX on your Amiga.\n\n"
  34.      "Read the Documentation files for\n"
  35.      "more information on the distribution.\n"
  36.      "MagicCX © 1994 Kai Iske\n"
  37.      "All rights reserved."
  38. ))
  39.  
  40. (set #ask-remove "There is an old version of MagicCX installed\nDo you want to deinstall it\nor simply install the new version?")
  41. (set #remove-ok "Deinstall")
  42. (set #remove-no "Install")
  43. (set #exit-deinstall "MagicCX deinstalled\n\n Remember to remove the MagicCX: Assignment from\nyour User-StartUp file\n\nThere might be some ARexx Scripts left, too")
  44.  
  45. (set #icon-types "Which type of icons would you like to install?")
  46. (set #icon-magicwb "MagicWB; 8 colors")
  47. (set #icon-normal "Normal; 4 colors")
  48.  
  49. (set #magiccx-drawer "Please locate a directory create a directory called MagicCX in")
  50.  
  51. (set #create-magiccx-dir "\n\nInstalling MagicCX to\n\n")
  52.  
  53. (set #unpack-server "\n\nUnpacking Server to RAM:")
  54. (set #install-server "\n\nInstalling Server program")
  55. (set #install-wbstart "\n\nInstalling Server launcher icon")
  56. (set #install-atboot "Do you want to launch MagicCX at System Startup?")
  57. (set #install-wbstartboot "\n\nInstalling Server launcher icon to SYS:WBStartUp")
  58. (set #do-install-key "\n\nWelcome registered user!\n\nThanks for your support")
  59. (set #install-key "\n\nInstalling KeyFile")
  60.  
  61. (set #unpack-prefs "\n\nUnpacking Preferences to RAM:")
  62. (set #install-prefs "\n\nInstalling Preferences program")
  63.  
  64. (set #unpack-libraries "\n\nUnpacking libraries to RAM:")
  65. (set #install-lib "\n\nInstalling mcx.library")
  66. (set #install-guilib "\n\nInstalling mcxgui.library")
  67. (set #install-blanklib "\n\nInstalling mcxblanker.library")
  68. (set #old-asl "\n\nYou are using a version of asl.library\nolder than V38. For some purposes, MagicCX requires asl.library V38 or reqtool.library V38\nI will now try to install reqtool.library V38")
  69. (set #install-reqlib "\n\nInstalling reqtools.library")
  70.  
  71. (set #unpack-register "\n\nUnpacking SASG Registration program to RAM:")
  72. (set #install-register "\n\nInstalling SASG Registration program")
  73.  
  74. (set #do-install-manager
  75. (cat    "\nYou are running OS 3.x or better.\n"
  76.     " This enables you to use a Modules Manager for\n"
  77.     " easier access to MagicCX`s modules/blankers.\n"
  78.     " You can install/deinstall modules/blankers using\n"
  79.     " this window driven Modules Manager.\n\n"
  80.     " Would you like to install the Modules Manager?"
  81. ))
  82. (set #unpack-manager "\n\nUnpacking Modules Manager to RAM:")
  83. (set #install-manager "\n\nInstalling Modules Manager")
  84.  
  85. (set #select-modules-1 "Please select which modules to install")
  86.  
  87. (set #create-modules-dir "Creating Modules directory")
  88. (set #create-modules-dir2 "Creating Modules storage directory")
  89. (set #unpack-modules "Unpacking Modules to RAM:")
  90.  
  91. (set #install-alarm "Installing Alarm module")
  92. (set #install-analog "Installing AnalogClock module")
  93. (set #install-arexx "Installing ARexx module")
  94. (set #install-awedge "Installing AssignWedge module")
  95. (set #install-calendar "Installing Calendar module")
  96. (set #install-cycle "Installing Cycle2Menu module")
  97. (set #install-expwin "Installing ExplodingWindows module")
  98. (set #install-fkeys "Installing FKeys module")
  99. (set #install-format "Installing Formatter module")
  100. (set #install-grabber "Installing Grabber module")
  101. (set #install-lock "Installing LockWindows module")
  102. (set #install-movesize "Installing MoveSizer module")
  103. (set #install-phone "Installing PhoneBill module")
  104. (set #install-rcs "Installing RCS module")
  105. (set #install-screen "Installing ScreenSelect module")
  106. (set #install-tag "Installing TagScreens module")
  107. (set #install-tool "Installing ToolAlias module")
  108. (set #install-unix "Installing UnixDirs module")
  109.  
  110. (set #install-scripts "Would you like to install some example\nScripts for the RCS Module?")
  111. (set #select-scripts "Please select scripts you want\nto install for the following environments")
  112. (set #select-scriptdir "Please select a directory for the scripts")
  113. (set #unpack-scripts "Unpacking scripts to RAM:")
  114. (set #install-ced "Installing scripts for CygnusED")
  115. (set #install-ttx "Installing scripts for TurboText")
  116. (set #install-ged "Installing scripts for GoldED")
  117. (set #install-rexx "Installing scripts for Shell")
  118.  
  119. (set #do-install-rcs2hst "Would you like to install the RCS2HST utility for use with RCS?")
  120. (set #unpack-rcs2hst "Unpacking RCS2HST to RAM:")
  121. (set #install-rcs2hst "Installing RCS2HST");
  122.  
  123. (set #select-blankers-1 "Please select which blankers to install")
  124.  
  125. (set #create-blankers-dir "Creating Blankers directory")
  126. (set #create-blankers-dir2 "Creating Blankers storage directory")
  127. (set #unpack-blankers "Unpacking Blankers to RAM:")
  128.  
  129. (set #install-frac "Installing Fractals blanker")
  130. (set #install-inter "Installing Interference blanker")
  131. (set #install-life "Installing Life blanker")
  132. (set #install-line "Installing LineDawn blanker")
  133. (set #install-plasma "Installing Plasma blanker")
  134. (set #install-puzzle "Installing Puzzle blanker")
  135. (set #install-stars "Installing Stars blanker")
  136. (set #install-worms "Installing Worms blanker")
  137.  
  138. (set #install-lang "Which languages should be installed?")
  139. (set #unpack-german "Unpacking German locale")
  140. (set #own-lang
  141. (cat    "\n\nIf you want to create own versions of\n"
  142.     "the catalogs pleaser have a look at the\n"
  143.     "distributions Locale directory. You will\n"
  144.     "find the .ct and .cd files there. If you\n"
  145.     "have created you own translations, please\n"
  146.     "don`t keep it a secret"
  147. ))
  148.  
  149. (set #do-install-doc "Would you like to install MagicCX`s documentation?")
  150. (set #create-docs-dir "Creating documentation directory")
  151. (set #doc-type "Which documentation formats would you like to install?")
  152. (set #doc-lang "Which language do you prefer for the documentation?")
  153. (set #unpack-amigaguide "Unpacking AmigaGuide documentation to RAM:")
  154. (set #unpack-dvi "Unpacking TeX DVI documentation to RAM:")
  155.  
  156. (set #install-gerguide "Installing German AmigaGuide documentation")
  157. (set #install-gerdvi "Installing German TeX DVI documentation")
  158.  
  159. (set #install-engguide "Installing English AmigaGuide documentation")
  160. (set #install-engdvi "Installing English TeX DVI documentation")
  161.  
  162. (set #add-assign "Adding Assign MagicCX: to your User-StartUp file\nCreating the Assign MagicCX: now!")
  163. (set #adding-assign "Now adding Assign to your User-StartUp file")
  164. (set #adding-help "This Assign MUST exist for MagicCX to work")
  165.  
  166. (set #exit-msg "Have Fun using MagicCX\n\nAnd don`t forget; It`s Shareware!")
  167.  
  168.  
  169. ;========================================================
  170. ; German strings
  171.  
  172. (if (= @language "deutsch")
  173. (
  174. (set default_lang 1)
  175.  
  176. (set #bad-kick
  177. (cat "Sie müssen Kickstart 2.04 benutzen, um MagicCX zu benutzen. Abbruch!"
  178. ))
  179.  
  180. (set #copying-mcxserver "Kopiere MagicCX Server Programm...")
  181. (set #copying-mcxprefs "Kopiere MagicCX Preferences Programm...")
  182.  
  183. (set #which-language-help
  184. (cat "\nDer Amiga kann in vielen verschiedenen Sprachen betrieben werden. "
  185.       "Wenn Sie wollen, daß die MagicCX Fenster die gleiche Sprache "
  186.       "wie die Amiga-Workbench benutzen, müssen für jede zu installierende Sprache "
  187.       "zwei Dateien auf Ihre Festplatte kopiert werden.\n\n"
  188.       "Um den Platz in Grenzen zu halten, den die Sprachentreiberdateien "
  189.       "einnehmen, können Sie wählen, nur die Treiber für bestimmte "
  190.       "Sprachen zu installieren.\n\n"
  191.       "Klicken Sie einfach die Felder derjenigen Sprachen an, die Sie in "
  192.       "Ihrem System verfügbar haben wollen, so daß diese Sprachen mit "
  193.       "einem Häkchen markiert sind.\n\n"
  194.       @askoptions-help
  195. ))
  196.  
  197. (set #install-msg
  198. (cat "\n\nMagicCX Installationsskript.\n"
  199.       "Diese Befehlsdatei installiert MagicCX auf Ihrem Amiga.\n\n"
  200.       "Lesen Sie die Dokumentationen für\n"
  201.       "weitere Informationen über die Weitergeabe.\n"
  202.       "MagicCX © 1994 Kai Iske\n"
  203.       "All rights reserved."
  204. ))
  205.  
  206. (set #ask-remove "Es wurde eine alte Version von MagicCX gefunden\nMöchten Sie diese Version deinstallieren\noder einfach die neue Version installieren?")
  207. (set #remove-ok "Deinstallieren")
  208. (set #remove-no "Installieren")
  209. (set #exit-deinstall "MagicCX deinstalliert\n\nBedenken Sie das MagicCX: Assign aus\nIhrer User-StartUp Datei zu entfernen\n\nEs könnten auch noch ARexx Skript vorhanden sein")
  210.  
  211. (set #icon-types "Welche Typen der Icons möchten Sie installieren?")
  212. (set #icon-magicwb "MagicWB; 8 Farben")
  213. (set #icon-normal "Normal; 4 Farben")
  214.  
  215. (set #magiccx-drawer "Bitte wählen Sie ein Verzeichnis, in dem das Verzeichnis MagicCX erzeugt werden soll")
  216.  
  217. (set #create-magiccx-dir "\n\nInstalliere MagicCX nach\n\n")
  218.  
  219. (set #unpack-server "\n\nEntpacke Server nach RAM:")
  220. (set #install-server "\n\nInstalliere Server Programm")
  221. (set #install-wbstart "\n\nInstalliere Server Starter Icon")
  222. (set #install-atboot "Möchten Sie MagicCX beim Hochfahren des System starten?")
  223. (set #install-wbstartboot "\n\nInstalliere Server Starter Icon nach SYS:WBStartUp")
  224. (set #do-install-key "\n\nWillkommen registrierter User!\n\nVielen Dank für die Unterstützung")
  225. (set #install-key "\n\nInstalliere KeyFile")
  226.  
  227. (set #unpack-prefs "\n\nEntpacke Preferences nach RAM:")
  228. (set #install-prefs "\n\nInstalliere Preferences Programm")
  229.  
  230. (set #unpack-libraries "\n\nEntpacke libraries nach RAM:")
  231. (set #install-lib "\n\nInstalliere mcx.library")
  232. (set #install-guilib "\n\nInstalliere mcxgui.library")
  233. (set #install-blanklib "\n\nInstalliere mcxblanker.library")
  234. (set #old-asl "\n\nSie benutzen eine ältere\nVersion der asl.library als V38\nFür einige Zwecke benötigt MagicCX asl.library V38 oder reqtool.library V38\nIch werde nun versuchen reqtool.library V38 zu installieren")
  235. (set #install-reqlib "\n\nInstalliere reqtools.library")
  236.  
  237. (set #unpack-register "\n\nEntpacke SASG Registrations Programm nach RAM:")
  238. (set #install-register "\n\nInstalliere SASG Registrations Programm")
  239.  
  240. (set #do-install-manager
  241. (cat    "\nSie benutzen OS 3.x oder besser.\n"
  242.     " Dies ermöglicht den Modul Manager zu nutzen\n"
  243.     " für einfacheren Zugriff auf die Module/Blanker.\n"
  244.     " Sie können mit diesem fenstergesteuerten Modul\n"
  245.     " Manager Module/Blanker leicht de-/installieren.\n\n"
  246.     " Möchten Sie den Modul Manager installieren?"
  247. ))
  248. (set #unpack-manager "\n\nEntpacke Modules Manager nach RAM:")
  249. (set #install-manager "\n\nInstalliere Modules Manager")
  250.  
  251. (set #select-modules-1 "Bitte wählen Sie die zu installierenden Module")
  252.  
  253. (set #create-modules-dir "Erzeuge Modul Verzeichnis")
  254. (set #create-modules-dir2 "Erzeuge Modul Lagerverzeichnis")
  255. (set #unpack-modules "Entpacke Module nach RAM:")
  256.  
  257. (set #install-alarm "Installiere Alarm Modul")
  258. (set #install-analog "Installiere AnalogClock Modul")
  259. (set #install-arexx "Installiere ARexx Modul")
  260. (set #install-awedge "Installiere AssignWedge Modul")
  261. (set #install-calendar "Installiere Calendar Modul")
  262. (set #install-cycle "Installiere Cycle2Menu Modul")
  263. (set #install-expwin "Installiere ExplodingWindows Modul")
  264. (set #install-fkeys "Installiere FKeys Modul")
  265. (set #install-format "Installiere Formatter Modul")
  266. (set #install-grabber "Installiere Grabber Modul")
  267. (set #install-lock "Installiere LockWindows Modul")
  268. (set #install-movesize "Installiere MoveSizer Modul")
  269. (set #install-phone "Installiere PhoneBill Modul")
  270. (set #install-rcs "Installiere RCS Modul")
  271. (set #install-screen "Installiere ScreenSelect Modul")
  272. (set #install-tag "Installiere TagScreens Modul")
  273. (set #install-tool "Installiere ToolAlias Modul")
  274. (set #install-unix "Installiere UnixDirs Modul")
  275.  
  276. (set #install-scripts "Möchten Sie einige Beispielskripte\nfür das RCS Modul installieren?")
  277. (set #select-scripts "Bitte wählen Sie, welche Skripte\nSie für welche Umgeben installieren möchen")
  278. (set #select-scriptdir "Bitte wählen Sie ein Verzeichnis für die Skripte")
  279. (set #unpack-scripts "Entpacke Skripte nach RAM:")
  280. (set #install-ced "Installiere Skripte für CygnusED")
  281. (set #install-ttx "Installiere Skripte für TurboText")
  282. (set #install-ged "Installiere Skripte für GoldED")
  283. (set #install-rexx "Installiere Skripte für Shell")
  284.  
  285. (set #do-install-rcs2hst "Möchten Sie das RCS2HST Hilfsprogramm installieren?")
  286. (set #unpack-rcs2hst "Entpacke RCS2HST nach RAM:")
  287. (set #install-rcs2hst "Installiere RCS2HST");
  288.  
  289. (set #select-blankers-1 "Bitte wählen Sie, welche Blanker installiert werden sollen")
  290.  
  291. (set #create-blankers-dir "Ergzeuge Blanker Verzeichnis")
  292. (set #create-blankers-dir2 "Erzeuge Blankers Lagerverzeichnis")
  293. (set #unpack-blankers "Entpacke Blanker nach RAM:")
  294.  
  295. (set #install-frac "Installiere Fractals Blanker")
  296. (set #install-inter "Installiere Interference Blanker")
  297. (set #install-life "Installiere Life Blanker")
  298. (set #install-line "Installiere LineDawn Blanker")
  299. (set #install-plasma "Installiere Plasma Blanker")
  300. (set #install-puzzle "Installiere Puzzle Blanker")
  301. (set #install-stars "Installiere Stars Blanker")
  302. (set #install-worms "Installiere Worms Blanker")
  303.  
  304. (set #install-lang "Welche Sprachen sollen installiert werden?")
  305. (set #unpack-german "Entpacke Deutsche locale")
  306. (set #own-lang
  307. (cat    "\n\nWenn Sie eigene Versionen der Kataloge\n"
  308.     "erstellen wollen, werfen Sie bitte einen\n"
  309.     "Blick in das Locale Verzeichnis der Distribution\n"
  310.     "Dort finden Sie die .ct und .cd Dateien. Wenn Sie\n"
  311.     "eigene Übersetzungen erzeugt haben, bitte,\n"
  312.     "machen Sie kein Geheimnis daraus"
  313. ))
  314.  
  315. (set #do-install-doc "Möchten Sie die Dokumentation zu MagicCX installieren?")
  316. (set #create-docs-dir "Erzeuge Verzeichnis für Dokumentationen")
  317. (set #doc-type "Welche Dokementenformate möchten Sie installieren?")
  318. (set #doc-lang "Welche Sprache bevorzugen Sie für die Anleitung?")
  319. (set #unpack-amigaguide "Entpacke AmigaGuide Dokumentation nach RAM:")
  320. (set #unpack-dvi "Entpacke TeX DVI Dokumentation nach RAM:")
  321.  
  322. (set #install-gerguide "Installiere Deutsche AmigaGuide Dokumentation")
  323. (set #install-gerdvi "Installiere Deutsche TeX DVI Dokumentation")
  324.  
  325. (set #install-engguide "Installiere Englische AmigaGuide Dokumentation")
  326. (set #install-engdvi "Installiere Englische TeX DVI Dokumentation")
  327.  
  328. (set #add-assign "Füge MagicCX: Assign Ihrer User-StartUp Datei zu\nErzeuge das MagicCX: Assign jetzt!")
  329. (set #adding-assign "Nun wird das Assign Ihrere User-StartUp Datei zugefügt.")
  330. (set #adding-help "Dieses Assign MUß existieren!")
  331.  
  332. (set #exit-msg "Haben Sie Spaß mit MagicCX\n\nUnd nicht vergessen; Es ist Shareware!")
  333. ))
  334.  
  335.  
  336.  
  337. ;========================================================
  338. ; Check system we`re running on
  339.  
  340.  
  341. (if (< (/ (getversion) 65536) 37)
  342. (
  343.     (abort #bad-kick)
  344. ))
  345.  
  346.  
  347.  
  348.  
  349. ;========================================================
  350. ; Initial message
  351.  
  352. (message #install-msg)
  353.  
  354.  
  355. ;========================================================
  356. ; Deinstall?
  357.  
  358. (if (NOT (= (getassign "MagicCX") ""))
  359. (
  360.     (if
  361.         (askbool
  362.             (prompt #ask-remove)
  363.             (help @askbool-help)
  364.             (choices
  365.                 #remove-ok
  366.                 #remove-no
  367.             )
  368.         )
  369.     (
  370.  
  371.             ; Get full name of directory
  372.  
  373.         (set MCXDir (getassign "MagicCX"))
  374.         (set MCXDirInfo ("\"%s.info\"" (getassign "MagicCX")))
  375.  
  376.             ;
  377.             ; Start deinstallation
  378.             ;
  379.  
  380.         (run "Assign MagicCX: REMOVE")
  381.  
  382.             ; Delete directories
  383.  
  384.         (run "Delete " ("\"%s/%s\"" MCXDir "Modules") " ALL")
  385.         (run "Delete " ("\"%s/%s\"" MCXDir "ModuleStorage") " ALL")
  386.         (run "Delete " ("\"%s/%s\"" MCXDir "Prefs") " ALL")
  387.         (run "Delete " ("\"%s/%s\"" MCXDir "Server") " ALL")
  388.         (run "Delete " ("\"%s/%s\"" MCXDir "WBStartUp") " ALL")
  389.         (run "Delete " ("\"%s/%s\"" MCXDir "Docs") " ALL")
  390.         (run "Delete " ("\"%s/%s\"" MCXDir "Tools") " ALL")
  391.         (run "Delete " ("\"%s/%s\"" MCXDir "libs") " ALL")
  392.  
  393.             ; Delete infos
  394.  
  395.         (run "Delete " ("\"%s/%s\"" MCXDir "#?.info"))
  396.  
  397.             ; Try to delete base directory
  398.  
  399.         (run "Delete " ("\"%s\"" MCXDir))
  400.         (run "Delete " MCXDirInfo)
  401.  
  402.         (run "Delete LOCALE:Catalogs/deutsch/MagicCX ALL")
  403.         (run "Delete SYS:WBStartUp/MCX")
  404.         (run "Delete SYS:WBStartUp/MCX.info")
  405.         (run "Delete ENVARC:MagicCX ALL")
  406.         (run "Delete ENV:MagicCX ALL")
  407.  
  408.         (exit #exit-deinstall)
  409.     ))
  410. ))
  411.  
  412.  
  413.  
  414. ;========================================================
  415. ; Get IconTypes
  416.  
  417. (set IconType
  418.         (askchoice
  419.             (prompt #icon-types)
  420.             (help @askchoice-help)
  421.             (choices
  422.                 #icon-magicwb
  423.                 #icon-normal
  424.             )
  425.             (default 0)
  426.         )
  427. )
  428.  
  429.  
  430. ;========================================================
  431. ; Get directory where to install MagicCX to
  432.  
  433.  
  434. (set MCXBase
  435.         (askdir
  436.             (prompt #magiccx-drawer)
  437.             (default "Work:")
  438.             (help #askdir-help)
  439.         )
  440. )
  441. (set MCXDir (tackon MCXBase "MagicCX"))
  442.  
  443. (complete 6)
  444.  
  445. ;========================================================
  446. ; Create Directory
  447.  
  448. (makedir MCXDir
  449.     (prompt #create-magiccx-dir)
  450.     (help @makedir-help)
  451. )
  452.  
  453. (if (= IconType 0)
  454. (
  455.     (run IconFile ("RAM:LhX x /Icons/Icons8.lha MagicCX.info \"%s//\"" MCXDir))
  456. ))
  457.  
  458. (if (= IconType 1)
  459. (
  460.     (run IconFile ("RAM:LhX x /Icons/Icons4.lha MagicCX.info \"%s//\"" MCXDir))
  461. ))
  462.  
  463.  
  464.  
  465. ;========================================================
  466. ; Set IconFile
  467.  
  468.  
  469. (if (= IconType 0)
  470. (
  471.     (set IconFile "RAM:LhX x /Icons/Icons8.lha %s \"%s/\"")
  472. ))
  473.  
  474. (if (= IconType 1)
  475. (
  476.     (set IconFile "RAM:LhX x /Icons/Icons4.lha %s \"%s/\"")
  477. ))
  478.  
  479.  
  480.  
  481. ;========================================================
  482. ; Copy Server program
  483.  
  484. (working #unpack-server)
  485.  
  486. (run "RAM:LhX x /Server/Server.lha RAM:")
  487. (makedir (tackon MCXDir "Server"))
  488.  
  489. (run (IconFile "Server.info" MCXDir))
  490.  
  491. (copylib
  492.     (prompt #install-server)
  493.     (help @copylib-help)
  494.     (source "RAM:MCX")
  495.     (dest (tackon MCXDir "Server"))
  496. )
  497.  
  498.  
  499. (run (IconFile "Server/MCX.info" MCXDir))
  500. (run "Delete RAM:MCX")
  501.  
  502.  
  503. (complete 12)
  504.  
  505.  
  506. ;
  507. ; Install KeyFile
  508. ;
  509.  
  510. (if (exists "/Server/MCX.key")
  511. (
  512.     (message #do-install-key)
  513.  
  514.     (copyfiles
  515.         (prompt #install-key)
  516.         (help @copyfiles-help)
  517.         (source "/Server/MCX.key")
  518.         (dest "S:")
  519.     )
  520. ))
  521.  
  522.  
  523.  
  524.  
  525. ;
  526. ; Copy WBStartUp icon
  527. ;
  528.  
  529. (makedir (tackon MCXDir "WBStartUp"))
  530.  
  531. (run (IconFile "WBStartUp.info" MCXDir))
  532. (run (IconFile "WBStartUp/MCX.info" MCXDir))
  533.  
  534.  
  535. (complete 18)
  536.  
  537. ;
  538. ; Launch server at startup?
  539. ;
  540.  
  541. (if (askbool
  542.         (prompt #install-atboot)
  543.         (help @askbool-help)
  544. )
  545. (
  546.  
  547.     (copyfiles
  548.         (prompt #install-wbstartboot)
  549.         (help @copyfiles-help)
  550.         (source ("%s/WBStartUp/MCX.info" MCXDir))
  551.         (dest "SYS:WBStartUp")
  552.     )
  553. ))
  554.  
  555. (complete 24)
  556.  
  557.  
  558. ;========================================================
  559. ; Install Preferences program
  560.  
  561. (working #unpack-prefs)
  562.  
  563. (run "RAM:LhX x /Prefs/Prefs.lha RAM:")
  564. (makedir (tackon MCXDir "Prefs"))
  565.  
  566. (run (IconFile "Prefs.info" MCXDir))
  567.  
  568. (copylib
  569.     (prompt #install-prefs)
  570.     (help @copylib-help)
  571.     (source "RAM:MCX")
  572.     (dest (tackon MCXDir "Prefs"))
  573. )
  574.  
  575. (run (IconFile "Prefs/MCX.info" MCXDir))
  576. (run "Delete RAM:MCX")
  577.  
  578.  
  579. (complete 30)
  580.  
  581. ;========================================================
  582. ; Install libraries
  583.  
  584. (working #unpack-libraries)
  585.  
  586. (run "RAM:LhX x /libs/libs.lha RAM:")
  587. (makedir (tackon MCXDir "libs"))
  588.  
  589. (copylib
  590.     (prompt #install-lib)
  591.     (help @copylib-help)
  592.     (source "RAM:mcx.library")
  593.     (dest (tackon MCXDir "libs"))
  594. )
  595.  
  596. (copylib
  597.     (prompt #install-guilib)
  598.     (help @copylib-help)
  599.     (source "RAM:mcxgui.library")
  600.     (dest (tackon MCXDir "libs"))
  601. )
  602.  
  603. (copylib
  604.     (prompt #install-blanklib)
  605.     (help @copylib-help)
  606.     (source "RAM:mcxblanker.library")
  607.     (dest (tackon MCXDir "libs"))
  608. )
  609.  
  610. (complete 36)
  611.  
  612. ;
  613. ; Older Version than V38 of asl.library?
  614. ;
  615.  
  616. (if (< (/ (getversion "asl.library" (resident)) 65536) 38)
  617. (
  618.     (message #old-asl)
  619.  
  620.     (copylib
  621.         (prompt #install-reqlib)
  622.         (help @copylib-help)
  623.         (source "RAM:reqtools.library")
  624.         (dest (tackon MCXDir "libs"))
  625.     )
  626. ))
  627.  
  628.  
  629. (complete 42)
  630.  
  631.  
  632. (run "Delete RAM:mcx.library")
  633. (run "Delete RAM:mcxgui.library")
  634. (run "Delete RAM:mcxblanker.library")
  635. (run "Delete RAM:reqtools.library")
  636.  
  637.  
  638. ;========================================================
  639. ; Install Registration Program
  640.  
  641.  
  642. (working #unpack-register)
  643.  
  644. (run "RAM:LhX x /Tools/Register.lha RAM:")
  645. (makedir (tackon MCXDir "Tools"))
  646.  
  647. (run (IconFile "Tools.info" MCXDir))
  648.  
  649. (copylib
  650.     (prompt #install-register)
  651.     (help @copylib-help)
  652.     (source "RAM:Register")
  653.     (dest (tackon MCXDir "Tools"))
  654. )
  655.  
  656.  
  657. (run (IconFile "Tools/Register.info" MCXDir))
  658. (run "Delete RAM:Register")
  659.  
  660.  
  661. (complete 48)
  662.  
  663.  
  664. ;========================================================
  665. ; Install Modules Manager
  666.  
  667. (if (> (/ (getversion) 65536) 38)
  668. (
  669.     (if (askbool
  670.         (prompt #do-install-manager)
  671.         (help @askbool-help)
  672.     )
  673.     (
  674.         (working #unpack-manager)
  675.         (run "RAM:LhX x /Tools/ModulesManager.lha RAM:")
  676.  
  677.         (copylib
  678.             (prompt #install-manager)
  679.             (help @copylib-help)
  680.             (source "RAM:ModulesManager")
  681.             (dest (tackon MCXDir "Tools"))
  682.         )
  683.  
  684.         (run (IconFile "Tools/ModulesManager.info" MCXDir))
  685.  
  686.         (run "Delete RAM:ModulesManager")
  687.     ))
  688. ))
  689.  
  690. (complete 54)
  691.  
  692. ;========================================================
  693. ; Create Modules directories
  694.  
  695. (makedir (tackon MCXDir "Modules")
  696.     (prompt #create-modules-dir)
  697.     (help @makedir-help)
  698. )
  699.  
  700. (makedir (tackon MCXDir "Modules/Blankers")
  701.     (prompt #create-blankers-dir)
  702.     (help @makedir-help)
  703. )
  704.  
  705.  
  706. (makedir (tackon MCXDir "ModuleStorage")
  707.     (prompt #create-modules-dir2)
  708.     (help @makedir-help)
  709. )
  710.  
  711. (makedir (tackon MCXDir "ModuleStorage/Blankers")
  712.     (prompt #create-blankers-dir2)
  713.     (help @makedir-help)
  714. )
  715.  
  716. (run (IconFile "Modules.info" MCXDir))
  717. (run (IconFile "Modules/Blankers.info" MCXDir))
  718. (run (IconFile "ModuleStorage.info" MCXDir))
  719. (run (IconFile "ModuleStorage/Blankers.info" MCXDir))
  720.  
  721. (complete 60)
  722.  
  723.  
  724. ;========================================================
  725. ; Which modules to install?
  726.  
  727. (set Modules
  728.     (askoptions
  729.         (prompt #select-modules-1)
  730.         (help @askoptions-help)
  731.         (choices
  732.             "Alarm"
  733.             "Analog Clock"
  734.             "ARexx"
  735.             "AssignWedge"
  736.             "Calendar"
  737.             "Cycle2Menu"
  738.             "ExplodingWindows"
  739.             "FKeys"
  740.             "Formatter"
  741.             "Grabber"
  742.             "LockWindows"
  743.             "MoveSizer"
  744.             "PhoneBill"
  745.             "RCS"
  746.             "ScreenSelect"
  747.             "TagScreens"
  748.             "ToolAlias"
  749.             "UnixDirs"
  750.         )
  751.         (default -1)
  752.     )
  753. )
  754.  
  755.  
  756.  
  757. ;========================================================
  758. ; Install modules?
  759.  
  760. (if (> Modules 0)
  761. (
  762.     (working #unpack-modules)
  763.     (run "RAM:LhX x /Modules/Modules.lha RAM:")
  764.  
  765.         ; ALARM Module
  766.  
  767.     (if (IN Modules 0)
  768.     (
  769.         (copylib
  770.             (prompt #install-alarm)
  771.             (help @copylib-help)
  772.             (source "RAM:Alarm.mcxmod")
  773.             (dest (tackon MCXDir "Modules"))
  774.         )
  775.  
  776.  
  777.         (run (IconFile "Modules/Alarm.mcxmod.info" MCXDir))
  778.     ))
  779.  
  780.         ; Analog Clock module
  781.  
  782.     (if (IN Modules 1)
  783.     (
  784.         (copylib
  785.             (prompt #install-analog)
  786.             (help @copylib-help)
  787.             (source "RAM:AnalogClock.mcxmod")
  788.             (dest (tackon MCXDir "Modules"))
  789.         )
  790.  
  791.         (run (IconFile "Modules/AnalogClock.mcxmod.info" MCXDir))
  792.     ))
  793.  
  794.         ; AREXX Module
  795.  
  796.     (if (IN Modules 2)
  797.     (
  798.         (copylib
  799.             (prompt #install-arexx)
  800.             (help @copylib-help)
  801.             (source "RAM:ARexx.mcxmod")
  802.             (dest (tackon MCXDir "Modules"))
  803.         )
  804.  
  805.         (run (IconFile "Modules/ARexx.mcxmod.info" MCXDir))
  806.     ))
  807.  
  808.         ; AssignWedge Module
  809.  
  810.     (if (IN Modules 3)
  811.     (
  812.         (copylib
  813.             (prompt #install-awedge)
  814.             (help @copylib-help)
  815.             (source "RAM:AssignWedge.mcxmod")
  816.             (dest (tackon MCXDir "Modules"))
  817.         )
  818.  
  819.  
  820.         (run (IconFile "Modules/AssignWedge.mcxmod.info" MCXDir))
  821.     ))
  822.  
  823.         ; CALENDAR Module
  824.  
  825.     (if (IN Modules 4)
  826.     (
  827.         (copylib
  828.             (prompt #install-calendar)
  829.             (help @copylib-help)
  830.             (source "RAM:Calendar.mcxmod")
  831.             (dest (tackon MCXDir "Modules"))
  832.         )
  833.  
  834.         (run (IconFile "Modules/Calendar.mcxmod.info" MCXDir))
  835.     ))
  836.  
  837.         ; CYCLE2MENU Module
  838.  
  839.     (if (IN Modules 5)
  840.     (
  841.         (copylib
  842.             (prompt #install-cycle)
  843.             (help @copylib-help)
  844.             (source "RAM:Cycle2Menu.mcxmod")
  845.             (dest (tackon MCXDir "Modules"))
  846.         )
  847.  
  848.         (run (IconFile "Modules/Cycle2Menu.mcxmod.info" MCXDir))
  849.     ))
  850.  
  851.         ; EXPWINDOWS Module
  852.  
  853.     (if (IN Modules 6)
  854.     (
  855.         (copylib
  856.             (prompt #install-expwin)
  857.             (help @copylib-help)
  858.             (source "RAM:ExplodingWindows.mcxmod")
  859.             (dest (tackon MCXDir "Modules"))
  860.         )
  861.  
  862.         (run (IconFile "Modules/ExplodingWindows.mcxmod.info" MCXDir))
  863.     ))
  864.  
  865.         ; FKEYS Module
  866.  
  867.     (if (IN Modules 7)
  868.     (
  869.         (copylib
  870.             (prompt #install-fkeys)
  871.             (help @copylib-help)
  872.             (source "RAM:FKeys.mcxmod")
  873.             (dest (tackon MCXDir "Modules"))
  874.         )
  875.  
  876.         (run (IconFile "Modules/FKeys.mcxmod.info" MCXDir))
  877.     ))
  878.  
  879.         ; FORMATTER Module
  880.  
  881.     (if (IN Modules 8)
  882.     (
  883.         (copylib
  884.             (prompt #install-format)
  885.             (help @copylib-help)
  886.             (source "RAM:Formatter.mcxmod")
  887.             (dest (tackon MCXDir "Modules"))
  888.         )
  889.  
  890.         (run (IconFile "Modules/Formatter.mcxmod.info" MCXDir))
  891.     ))
  892.  
  893.         ; GRABBER Module
  894.  
  895.     (if (IN Modules 9)
  896.     (
  897.         (copylib
  898.             (prompt #install-grabber)
  899.             (help @copylib-help)
  900.             (source "RAM:Grabber.mcxmod")
  901.             (dest (tackon MCXDir "Modules"))
  902.         )
  903.  
  904.         (run (IconFile "Modules/Grabber.mcxmod.info" MCXDir))
  905.     ))
  906.  
  907.         ; LOCKWINDOWS Module
  908.  
  909.     (if (IN Modules 10)
  910.     (
  911.         (copylib
  912.             (prompt #install-lock)
  913.             (help @copylib-help)
  914.             (source "RAM:LockWindows.mcxmod")
  915.             (dest (tackon MCXDir "Modules"))
  916.         )
  917.  
  918.         (run (IconFile "Modules/LockWindows.mcxmod.info" MCXDir))
  919.     ))
  920.  
  921.         ; MOVESIZER Module
  922.  
  923.     (if (IN Modules 11)
  924.     (
  925.         (copylib
  926.             (prompt #install-movesize)
  927.             (help @copylib-help)
  928.             (source "RAM:MoveSizer.mcxmod")
  929.             (dest (tackon MCXDir "Modules"))
  930.         )
  931.  
  932.         (run (IconFile "Modules/MoveSizer.mcxmod.info" MCXDir))
  933.     ))
  934.  
  935.         ; PHONEBILL Module
  936.  
  937.     (if (IN Modules 12)
  938.     (
  939.         (copylib
  940.             (prompt #install-phone)
  941.             (help @copylib-help)
  942.             (source "RAM:PhoneBill.mcxmod")
  943.             (dest (tackon MCXDir "Modules"))
  944.         )
  945.  
  946.         (run (IconFile "Modules/PhoneBill.mcxmod.info" MCXDir))
  947.     ))
  948.  
  949.         ; RCS Module
  950.  
  951.     (if (IN Modules 13)
  952.     (
  953.         (copylib
  954.             (prompt #install-rcs)
  955.             (help @copylib-help)
  956.             (source "RAM:RCS.mcxrxmod")
  957.             (dest (tackon MCXDir "Modules"))
  958.         )
  959.  
  960.         (run (IconFile "Modules/RCS.mcxrxmod.info" MCXDir))
  961.     ))
  962.  
  963.         ; SCREENSELECT Module
  964.  
  965.     (if (IN Modules 14)
  966.     (
  967.         (copylib
  968.             (prompt #install-screen)
  969.             (help @copylib-help)
  970.             (source "RAM:ScreenSelect.mcxmod")
  971.             (dest (tackon MCXDir "Modules"))
  972.         )
  973.  
  974.         (run (IconFile "Modules/ScreenSelect.mcxmod.info" MCXDir))
  975.     ))
  976.  
  977.         ; TAGSCREENS Module
  978.  
  979.     (if (IN Modules 15)
  980.     (
  981.         (copylib
  982.             (prompt #install-tag)
  983.             (help @copylib-help)
  984.             (source "RAM:TagScreens.mcxmod")
  985.             (dest (tackon MCXDir "Modules"))
  986.         )
  987.  
  988.         (run (IconFile "Modules/TagScreens.mcxmod.info" MCXDir))
  989.     ))
  990.  
  991.         ; TOOLALIAS Module
  992.  
  993.     (if (IN Modules 16)
  994.     (
  995.         (copylib
  996.             (prompt #install-tool)
  997.             (help @copylib-help)
  998.             (source "RAM:ToolAlias.mcxmod")
  999.             (dest (tackon MCXDir "Modules"))
  1000.         )
  1001.  
  1002.         (run (IconFile "Modules/ToolAlias.mcxmod.info" MCXDir))
  1003.     ))
  1004.  
  1005.         ; UNIXDIRS Module
  1006.  
  1007.     (if (IN Modules 17)
  1008.     (
  1009.         (copylib
  1010.             (prompt #install-unix)
  1011.             (help @copylib-help)
  1012.             (source "RAM:UnixDirs.mcxmod")
  1013.             (dest (tackon MCXDir "Modules"))
  1014.         )
  1015.  
  1016.         (run (IconFile "Modules/UnixDirs.mcxmod.info" MCXDir))
  1017.     ))
  1018.  
  1019.     (run "Delete RAM:#?.mcx#?")
  1020.  
  1021.  
  1022.  
  1023.  
  1024.         ;
  1025.         ; User installed RCS, check for scripts
  1026.         ;
  1027.  
  1028.     (if (IN Modules 13)
  1029.     (
  1030.         (if (askbool
  1031.             (prompt #install-scripts)
  1032.             (help @askbool-help)
  1033.         )
  1034.         (
  1035.             (set Scripts
  1036.                 (askoptions
  1037.                     (prompt #select-scripts)
  1038.                     (help @askoptions-help)
  1039.                     (choices
  1040.                         "CygnusEd"
  1041.                         "TurboText"
  1042.                         "GoldED"
  1043.                         "Shell"
  1044.                     )
  1045.                     (default -1)
  1046.                 )
  1047.             )
  1048.  
  1049.             (set ScriptDir
  1050.                 (askdir
  1051.                     (prompt #select-scriptdir)
  1052.                     (help @askdir-help)
  1053.                     (default "REXX:")
  1054.                 )
  1055.             )
  1056.  
  1057.             (working #unpack-scripts)
  1058.             (run "RAM:LhX x /Rexx/Scripts.lha RAM:")
  1059.  
  1060.                 ;
  1061.                 ; Install CED
  1062.                 ;
  1063.  
  1064.             (if (IN Scripts 0)
  1065.             (
  1066.                 (copyfiles
  1067.                     (prompt #install-ced)
  1068.                     (help @copyfiles-help)
  1069.                     (source "RAM:")
  1070.                     (pattern "#?.ced")
  1071.                     (dest ScriptDir)
  1072.                 )
  1073.             ))
  1074.  
  1075.                 ;
  1076.                 ; Install TurboText
  1077.                 ;
  1078.  
  1079.             (if (IN Scripts 1)
  1080.             (
  1081.                 (copyfiles
  1082.                     (prompt #install-ttx)
  1083.                     (help @copyfiles-help)
  1084.                     (source "RAM:")
  1085.                     (pattern "#?.ttx")
  1086.                     (dest ScriptDir)
  1087.                 )
  1088.             ))
  1089.  
  1090.                 ;
  1091.                 ; Install GoldED
  1092.                 ;
  1093.  
  1094.             (if (IN Scripts 2)
  1095.             (
  1096.                 (copyfiles
  1097.                     (prompt #install-ged)
  1098.                     (help @copyfiles-help)
  1099.                     (source "RAM:")
  1100.                     (pattern "#?.ged")
  1101.                     (dest ScriptDir)
  1102.                 )
  1103.             ))
  1104.  
  1105.                 ;
  1106.                 ; Install Plain
  1107.                 ;
  1108.  
  1109.             (if (IN Scripts 3)
  1110.             (
  1111.                 (copyfiles
  1112.                     (prompt #install-rexx)
  1113.                     (help @copyfiles-help)
  1114.                     (source "RAM:")
  1115.                     (pattern "#?.rexx")
  1116.                     (dest ScriptDir)
  1117.                 )
  1118.             ))
  1119.  
  1120.             (run "Delete RAM:#?.ced")
  1121.             (run "Delete RAM:#?.ged")
  1122.             (run "Delete RAM:#?.ttx")
  1123.             (run "Delete RAM:#?.rexx")
  1124.         ))
  1125.  
  1126.  
  1127.  
  1128.             ;
  1129.             ; Install RCS2HST?
  1130.             ;
  1131.  
  1132.         (if (askbool
  1133.             (prompt #do-install-rcs2hst)
  1134.             (help @askbool-help)
  1135.         )
  1136.         (
  1137.             (working #unpack-rcs2hst)
  1138.             (run "RAM:LhX x /Tools/RCS2HST RAM:")
  1139.  
  1140.             (copylib
  1141.                 (prompt #install-rcs2hst)
  1142.                 (help @copylib-help)
  1143.                 (source "RAM:RCS2HST")
  1144.                 (dest (tackon MCXDir "Tools"))
  1145.             )
  1146.  
  1147.             (run (IconFile "Tools/RCS2HST.info" MCXDir))
  1148.             (run "Delete RAM:RCS2HST#?")
  1149.         ))
  1150.     ))
  1151. ))
  1152.  
  1153.  
  1154.  
  1155. (complete 75)
  1156.  
  1157.  
  1158.  
  1159.  
  1160. ;========================================================
  1161. ; Which blankers to install?
  1162.  
  1163. (set Blankers
  1164.     (askoptions
  1165.         (prompt #select-blankers-1)
  1166.         (help @askoptions-help)
  1167.         (choices
  1168.             "Fractals"
  1169.             "Interference"
  1170.             "Life"
  1171.             "LineDawn"
  1172.             "Plasma"
  1173.             "Puzzle"
  1174.             "Stars"
  1175.             "Worms"
  1176.         )
  1177.         (default -1)
  1178.     )
  1179. )
  1180.  
  1181.  
  1182. ;========================================================
  1183. ; Install Blankers?
  1184.  
  1185. (if (> Blankers 0)
  1186. (
  1187.     (working #unpack-blankers)
  1188.     (run "RAM:LhX x /Modules/Blankers.lha RAM:")
  1189.  
  1190.         ; FRACTALS Module
  1191.  
  1192.     (if (IN Blankers 0)
  1193.     (
  1194.         (copylib
  1195.             (prompt #install-frac)
  1196.             (help @copylib-help)
  1197.             (source "RAM:Fractals.mcxblk")
  1198.             (dest (tackon MCXDir "Modules/Blankers"))
  1199.         )
  1200.  
  1201.         (run (IconFile "Modules/Blankers/Fractals.mcxblk.info" MCXDir))
  1202.     ))
  1203.  
  1204.         ; INTERFERENCE Module
  1205.  
  1206.     (if (IN Blankers 1)
  1207.     (
  1208.         (copylib
  1209.             (prompt #install-inter)
  1210.             (help @copylib-help)
  1211.             (source "RAM:Interference.mcxblk")
  1212.             (dest (tackon MCXDir "Modules/Blankers"))
  1213.         )
  1214.  
  1215.         (run (IconFile "Modules/Blankers/Interference.mcxblk.info" MCXDir))
  1216.     ))
  1217.  
  1218.         ; LIFE Module
  1219.  
  1220.     (if (IN Blankers 2)
  1221.     (
  1222.         (copylib
  1223.             (prompt #install-life)
  1224.             (help @copylib-help)
  1225.             (source "RAM:Life.mcxblk")
  1226.             (dest (tackon MCXDir "Modules/Blankers"))
  1227.         )
  1228.  
  1229.         (run (IconFile "Modules/Blankers/Life.mcxblk.info" MCXDir))
  1230.     ))
  1231.  
  1232.         ; LINEDAWN Module
  1233.  
  1234.     (if (IN Blankers 3)
  1235.     (
  1236.         (copylib
  1237.             (prompt #install-line)
  1238.             (help @copylib-help)
  1239.             (source "RAM:LineDawn.mcxblk")
  1240.             (dest (tackon MCXDir "Modules/Blankers"))
  1241.         )
  1242.  
  1243.         (run (IconFile "Modules/Blankers/LineDawn.mcxblk.info" MCXDir))
  1244.     ))
  1245.  
  1246.         ; PLASMA Module
  1247.  
  1248.     (if (IN Blankers 4)
  1249.     (
  1250.         (copylib
  1251.             (prompt #install-plasma)
  1252.             (help @copylib-help)
  1253.             (source "RAM:Plasma.mcxblk")
  1254.             (dest (tackon MCXDir "Modules/Blankers"))
  1255.         )
  1256.  
  1257.         (run (IconFile "Modules/Blankers/Plasma.mcxblk.info" MCXDir))
  1258.     ))
  1259.  
  1260.         ; PUZZLE Module
  1261.  
  1262.     (if (IN Blankers 5)
  1263.     (
  1264.         (copylib
  1265.             (prompt #install-puzzle)
  1266.             (help @copylib-help)
  1267.             (source "RAM:Puzzle.mcxblk")
  1268.             (dest (tackon MCXDir "Modules/Blankers"))
  1269.         )
  1270.  
  1271.         (run (IconFile "Modules/Blankers/Puzzle.mcxblk.info" MCXDir))
  1272.     ))
  1273.  
  1274.         ; STARS Module
  1275.  
  1276.     (if (IN Blankers 6)
  1277.     (
  1278.         (copylib
  1279.             (prompt #install-stars)
  1280.             (help @copylib-help)
  1281.             (source "RAM:Stars.mcxblk")
  1282.             (dest (tackon MCXDir "Modules/Blankers"))
  1283.         )
  1284.  
  1285.         (run (IconFile "Modules/Blankers/Stars.mcxblk.info" MCXDir))
  1286.     ))
  1287.  
  1288.         ; WORMS Module
  1289.  
  1290.     (if (IN Blankers 7)
  1291.     (
  1292.         (copylib
  1293.             (prompt #install-worms)
  1294.             (help @copylib-help)
  1295.             (source "RAM:Worms.mcxblk")
  1296.             (dest (tackon MCXDir "Modules/Blankers"))
  1297.         )
  1298.  
  1299.         (run (IconFile "Modules/Blankers/Worms.mcxblk.info" MCXDir))
  1300.     ))
  1301.  
  1302.     (run "Delete RAM:#?.mcx#?")
  1303. ))
  1304.  
  1305.  
  1306. (complete 90)
  1307.  
  1308.  
  1309.  
  1310. ;========================================================
  1311. ; Install Locale
  1312.  
  1313. (if (AND (NOT (= (getassign "Locale") "")) (exists "libs:locale.library"))
  1314. (
  1315.         ;
  1316.         ; Select language(s)
  1317.         ;
  1318.  
  1319.     (set Lang
  1320.         (askoptions
  1321.             (prompt #install-lang)
  1322.             (help #which-language-help)
  1323.             (choices
  1324.                 "German"
  1325.             )
  1326.             (default default_lang)
  1327.         )
  1328.     )
  1329.  
  1330.     (if (IN Lang 0)
  1331.     (
  1332.         (working #unpack-german)
  1333.         (run "RAM:LhX x /locale/deutsch/Catalogs LOCALE:")
  1334.     ))
  1335.  
  1336.  
  1337.     (message #own-lang)
  1338. ))
  1339.  
  1340.  
  1341. (complete 93)
  1342.  
  1343.  
  1344. ;========================================================
  1345. ; Install Documentaion
  1346.  
  1347.  
  1348. (if
  1349.     (askbool
  1350.         (prompt #do-install-doc)
  1351.         (help @askbool-help)
  1352.     )
  1353. (
  1354.         ;
  1355.         ; Create directory
  1356.         ;
  1357.  
  1358.     (makedir (tackon MCXDir "Docs")
  1359.         (prompt #create-docs-dir)
  1360.     )
  1361.  
  1362.     (run (IconFile "Docs.info" MCXDir))
  1363.  
  1364.         ;
  1365.         ; Ask types
  1366.         ;
  1367.  
  1368.     (if (exists "/Docs/DVI.lha")
  1369.     (
  1370.         (set DocType
  1371.             (askoptions
  1372.                 (prompt #doc-type)
  1373.                 (help @askoptions-help)
  1374.                 (choices
  1375.                     "AmigaGuide ® V39"
  1376.                     "TeX DVI file"
  1377.                 )
  1378.                 (default 1)
  1379.             )
  1380.         )
  1381.     )
  1382.     (
  1383.         (set DocType
  1384.             (askoptions
  1385.                 (prompt #doc-type)
  1386.                 (help @askoptions-help)
  1387.                 (choices
  1388.                     "AmigaGuide ® V39"
  1389.                 )
  1390.                 (default 1)
  1391.             )
  1392.         )
  1393.     ))
  1394.  
  1395.         ;
  1396.         ; Ask language
  1397.         ;
  1398.  
  1399.     (set DocLang
  1400.         (askchoice
  1401.             (prompt #doc-lang)
  1402.             (help @askchoice-help)
  1403.             (choices
  1404.                 "German"
  1405.                 "English"
  1406.             )
  1407.             (if (= default_lang 256) ( (default 1) )( (default 0) ))
  1408.         )
  1409.     )
  1410.  
  1411.  
  1412.         ;
  1413.         ; Install GERMAN parts
  1414.         ;
  1415.  
  1416.     (if (= DocLang 0)
  1417.     (
  1418.         (if (IN DocType 0)
  1419.         (
  1420.                 ;
  1421.                 ; AmigaGuide
  1422.                 ;
  1423.  
  1424.             (working #unpack-amigaguide)
  1425.             (run "RAM:LhX x /Docs/Guide.lha MCXGER.guide RAM:")
  1426.  
  1427.             (copyfiles
  1428.                 (prompt #install-gerguide)
  1429.                 (help @copyfile-help)
  1430.                 (source "RAM:MCXGER.guide")
  1431.                 (dest (tackon MCXDir "Docs")
  1432.                 (newname "MagicCX.guide")
  1433.             ))
  1434.  
  1435.             (run (IconFile "Docs/MagicCX.guide.info" MCXDir))
  1436.             (run "Delete RAM:MCX*.guide")
  1437.         ))
  1438.  
  1439.         (if (IN DocType 1)
  1440.         (
  1441.                 ;
  1442.                 ; DVI
  1443.                 ;
  1444.  
  1445.             (working #unpack-dvi)
  1446.             (run "RAM:LhX x /Docs/DVI.lha MCXGER.dvi RAM:")
  1447.  
  1448.             (copyfiles
  1449.                 (prompt #install-gerdvi)
  1450.                 (help @copyfile-help)
  1451.                 (source "RAM:MCXGER.dvi")
  1452.                 (dest (tackon MCXDir "Docs")
  1453.                 (newname "MagicCX.dvi")
  1454.             ))
  1455.  
  1456.             (run (IconFile "Docs/MagicCX.dvi.info" MCXDir))
  1457.             (run "Delete RAM:MCX*.dvi")
  1458.         ))
  1459.     ))
  1460.  
  1461.  
  1462.         ;
  1463.         ; Install ENGLISH parts
  1464.         ;
  1465.  
  1466.     (if (= DocLang 1)
  1467.     (
  1468.         (if (IN DocType 0)
  1469.         (
  1470.                 ;
  1471.                 ; AmigaGuide
  1472.                 ;
  1473.  
  1474.             (working #unpack-amigaguide)
  1475.             (run "RAM:LhX x /Docs/Guide.lha MCXENG.guide RAM:")
  1476.  
  1477.             (copyfiles
  1478.                 (prompt #install-engguide)
  1479.                 (help @copyfile-help)
  1480.                 (source "RAM:MCXENG.guide")
  1481.                 (dest (tackon MCXDir "Docs")
  1482.                 (newname "MagicCX.guide")
  1483.             ))
  1484.  
  1485.             (run (IconFile "Docs/MagicCX.guide.info" MCXDir))
  1486.             (run "Delete RAM:MCX*.guide")
  1487.         ))
  1488.  
  1489.         (if (IN DocType 1)
  1490.         (
  1491.                 ;
  1492.                 ; DVI
  1493.                 ;
  1494.  
  1495.             (working #unpack-dvi)
  1496.             (run "RAM:LhX x /Docs/DVI.lha MCXENG.dvi RAM:")
  1497.  
  1498.             (copyfiles
  1499.                 (prompt #install-engdvi)
  1500.                 (help @copyfile-help)
  1501.                 (source "RAM:MCXENG.dvi")
  1502.                 (dest (tackon MCXDir "Docs")
  1503.                 (newname "MagicCX.dvi")
  1504.             ))
  1505.  
  1506.             (run (IconFile "Docs/MagicCX.dvi.info" MCXDir))
  1507.             (run "Delete RAM:MCX*.dvi")
  1508.         ))
  1509.     ))
  1510. ))
  1511.  
  1512.  
  1513. (complete 98)
  1514.  
  1515.  
  1516. ;========================================================
  1517. ; Add Assign
  1518.  
  1519. (message #add-assign)
  1520.  
  1521. (makeassign "MagicCX" MCXDir)
  1522. (startup "MagicCX"
  1523.     (command "Assign MagicCX: " MCXDir "\n")
  1524.     (prompt #adding-assign)
  1525.     (help @adding-help)
  1526. )
  1527.  
  1528. (complete 100)
  1529.  
  1530.  
  1531. (set @default-dest MCXDir)
  1532. (exit #exit-msg)
  1533.